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léeo 


lee 
l2ebv 
l2et 
lé2F 
1230 


123] 


1232 


1233 


1234 
1é39 


1236 


1237 
1238 
1239 
L23A 


lé3b 
123¢ 
123v 
L23t 


L23F 
1240 
1241 
1242 


"REV AS 


F506 
9009 
b60] 


024D 
2025 
S1OE 
9304 
E206 


9004 
£60] 


0259 
4450 


1793 
20E2 
0750 
1795 
O4E0 


O265 
0350 


0267 
1736 


9014 


0266 


3290 
FF51 
O26F 
1B01 


0270 
503E 
9390 
F204 
£600 


0279 
2C50 
3F94 
C052 
IBF 


0C50 
1052 
18F] 


0690 


i) 39 
JUMP EREND 


LOC KCYV7_ 
Cv7 EGU X*O24D8 

IN 5 

ST X'ee 

ANDO X04? 

BZT RCV8 

aD) z4 


JUMP EREND 


OUTPUT RCV CUNFIGURATION 


RCV 
CVvé8 bQYU X*02598 
X*l]7e 
lf TCb IS SET MODIFY BYT 
BY LR6 (SHOULD 6E DON®T 
AND =X#2OQt 
BZT DOGFG 
LO x*y7? 
XOR a4 
es) OUTIT 
LOC DOCFG 
OCFG EGU X*02658 
LO X*178 
LOC OUTIT 
UTIT €&QU X*02678 
OUT 6 


LO X*.49 
OUT 2 

me LOC DLUOP 

LOUP EGU X'026B° 
Lb zX0FRE 
ST X*lBe 

. LOC XYZ 

YZ EQU X80C6F 4 

wAl 


TURN ON XMiTs RCVe OR BOTH. 


BoB Mba hob Wishadasadlliad SLL ES Mini ls eae cto da buwstan uaa! FULL cttw i dldhSeo ee Ra uaa a MAE acct td die 


PAGE 45 


ADAP RDY DIDNT T RESET 


IN DATA SET STAT 


STRIP TO REAVY 


. SPECIFIED 


TCB BIT 

Bs NO TCB 
GETVALUE 
CHANGE BIT 5 


PICK UP CONTROL 


SET INTTIAL FRAME COUNT 


=o oe GP OR ae GP GH En Gan ee Gn Onn Om AP EE Ome Man OE OD ORD GD Om EP OD Ge OP OP Oe OD om am an am SP ap me ge ee ee SE ep EP Ge GD am GR CHF OF Om SP OF gy ap em aye HP GO Ge Ge GF Oe ap OD HY GH aw a 


LOC LPL 
Pl EGU XF02708 
LD X38 
AND =X1908 
B2ZF Lup2 


JUMP RCV1O 


KORE RT KKK OH KK EO KEK OKO KK KOK K KOKK KK KK KKK KK KKK KOKA KEK OK CO 


LOC Pe 
UR2 EQU X*0¢798 
LD Fe 
OR eX#CQ? 
C X*lobe 
BEF RCV9 
$F em om toe om om em i Sa i da 
* 
: SPECIAL ACTION 
* LD X#jpe 
* ¢ X*18e 
* BEF RCVv9 
% LD =X'2Qt 
* 


JUMP RDLAY 


DECILDE TO LO LUNG UR SHORT DATA Loop 


GET FLAG 

STRIP TU OVERUN BIT 
BRANCH IF LONG LOOP 
DO SHOR! LOOP 


LONG DATA LOOP = IST SEE IF TIME FOR ANY SPECIAL ACTION 


GET ACTION FRAME 
MAKE 8 BITS 

COMPARE WITH ACTUAL 
B = NOU OVRUN NOW 


GET ACTION CHAR 
COMPARE WITH ACTUAL 
B = NU OVERUN NOW 


DELAY ABOUT 100 MS 


TITLE DCMS3, 


1245 
1246 
1247 


1248 
1249 
L24A 
124b 


124¢€ 
124D 


124k 
Le4F 
125U 


1251 
125e 
1253 


1<254 
1295 
1256 
1257 


1258 
1259 
1Z5A 
1256 
125¢ 
125v 
L25€ 
L29F 


1260 
l2ol 


L262 
1263 
126% 


COOSCCOCOOCOOCOOCCCESOCOCOCOSCOCOCSOCOCCOCOOCCOCOOOCOSC COC OSC OCHO COC OOCOCOOCOOCOCOOCOCOCOCOTOCOCOCOOCOCOOOOCOCOOOCOOCOOOCOOCOOOCOOSCOCOOO 
OTOCCOCOCOCOCCOCOCSCOCCOCOC OOO COSSCOCOCOCOC OCHO OC COCCOOCO COC TST OOCOSCOC OO CO OCOCOO COOCCOSCCOCOOCCOOCSCOCOCOOCOCOOCONOOOOOOOOCOSCOCOOSCOOOCS 
WMP TPIT SOIT UI PAPUA IS SUA UAT UTS HHEHHHHHHHHHLHHLHSRHPERHHHDHHHRHHEHHHHDHPHHHPHHHHHRHHE HSH HLH HRHLESHLHHHREHEHHSHRHSSHFPHSEHSHRH HHH HS 
SOCCOCCCCCOCCCOCOSCOCOCOCOCOCCOOCSTS OSC SCO COM EC COO WE OOO OCOW LD OO COW OCHO OOCMOE LO OHW OCW OO OCW OOO UOC OCOHOCOOC OC COO SSAEOSSCOOSOKCHS SCTE 
FHP SH HS PWWUWWWNNNNNNAE Ree er rrr OO OCC OC OOO DN ODODE NANA AANA OOOO AUIUIUIUIN SD SHH PWWWUWWWUWRNNNNDNDA ES Herr COOO OOOO OU OO DOODOANIN ANAS 
NOUS ONE SNF WCOON SE CORN NEON CU OUINE SP WOCOUNE SE NOU LUNE OW OU FE CNOU SHOALS OCOTNOUSWOOGUFS URE EN FONE CNSR COENOWOWOUNE OOK NOU Se 


1265 


O2be2 
93FQ 
9220 
FOC 
203E 
9308 
F20A 
9010 
E600 


02C3 


DA92 
LOF] 
O2C7 
2290 
1054 
1151 


1150 


DC RDLAY=X*O286° 


* 
: NO SPECIAL ACTION 


* 

7 OC RCV9_ 
RCV9 = EGU X*OL8C8 
* IN 7 
* T X*}At 
* BZF RCS 
* RECV  O 
* ST | 
* LD X*18¢ 
* DEC 
* ST X'iBe 
* BLCF NEXT 
* LOC Rms 
ER@5 EGU X*OZ9A8 
* LD =5 
% JUMP = EREND 
* LOC NEXT 
NEXT  EQU X9029F? 
* BART UP2 
WAIT 
* B LuP2 
% ‘ 

: MINIMUM LOOP 
LO RCV10 
RCV10 EGU. KHDeAge 
ST X* LAr 
BZF RC5 
RECV 0 
oT nee 
BLCT ERS 
BART  RCV1O 
wAIT | 
B RCV10 


COME HERE WHEN NON ZERO 


cs ebOS ESE. 
AND sXOFO? 
C =Xt2or 
BEF NOTEST 
LD X*°3E° 


AND aXege 
BZF NOTESM 


ee Ok Ok OK Ok OK OK KR KOK KKK Ok OK OK OK OK OK OK 


LOC NOTEST 
NOTEST EWU xNOee3e 


FE ne mae ee ge om een OD om Om ee em on ee 


* 

* CHECK FOR NORMAL CLOSING 
* 

* 

C =X*108 

* BEF = JMP2 

* _40C = NOTESM 
NOTESM EGU” x*0eC7? 

* LD sX*108 

* OR XOLL8 

* ST x"1a0 

FE om aw & on am an 9m a om an om om am 

* 

* CHECK THAT LAST BYTE SIZE 
* 

* LD X* LAs 
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GET STATUS 


BRANCH IF STATUS To READ 


UPDATE CHAR  VOUNT 


MISSEV CLOSEW FLAG 


6B = SUME STATUS To READ 


BR = MISSED CLOSE FLAG 


> 7 om oP an ae OF oP OP En RE PR ey OF aE EP GR GID CHR OD 2 EP GP ER OF ee om can emp HR OP OF Gp GE GR aD gen GP OF OD on ae 


LR7 FOUND IN DATA LOOP 
STRIP OFF RESIDUE 
CHECK FOR DIAGNOSTIC STATUS 
BR IF NOT DIAGNOSTIC CRC MODE 


GET FLAG 
READ CRO BIT 


ERROR» DIAGNUSTIC STATUS WHEN NOT 
IN DIAGNOSTIC MODE 


STATUS» BITS UO # 4 


GRANCH [F ERROR 


SET CLOSE BIT 


1S AS EXPECTED 


GET STATUS 


/ 


, co oN 
if ” 
aa ' 
: 


4 
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005050 - % AND =XtFe STRIP TO RESIDUE BITS 
005051 1266 1A93 | : | 
005054 * eeeeAND PARTIAL BYTE BIT —_ 
005055 ; * C 4 COMPARE WITH WHAT SHOULD BE 
005056 1267 OF52. os _ 

005059 ; - * BET RCV1L2 

005060 |268 O04E] | 

Gosces 1269 0690 id a abe 

OOSU6T : * JUMP = EREND RESIDUE WRONG FOR LAST BYTE 
Oo5071 265 90CS DCs EREND=X*02D9" 

00507¢ * i eeeeQR PARTIAL BYTE BIT WRONG 
005073 * LOC RCv1l2 

00RD Ts O2DA RCV12 EQU  X#O2ZDA8 

005075 * RECV O | 

0050748 _ * 

005079 126C AOL] 

005080 Seae, oe * LD X18" 

005083 126b 5018 are 

005084 * DEC 7 | 

005085 ae * ST X*188 DEC CHAR COUNT 
005086 1leg6k 0551 

005089 ; x LO =X?10° 

005090 126F 1890 2 

005093 | * OR Xl le 

005094 1270 1054 | siete Be tess 

005097 | * ST XeLye SET CLOSE BII 

005098 1271 1151 a | . 

005104 1272 1150 : sii sie eae 

g ) | 

005105 io * AND =X0gt STRIP TO REAY CRC DIAGNOSTIC BIT 
005106 1273 3E93 . 

005109 * BZT RCv1l 

005110 1274 O8E2 

005113 | | * wAIT 

005114 1275 OQEO01 

QO5 h 15 Fe we ce oe ae > oe en on om me ow ow 20 gm oH HF a AD OD Oe oe om ow FFP 9 OP OP am ED Ow Ob OP om FD OP OP OD OP Gy TD aay HD OD ED om OP OD ED OE TP g, we am ae HP MP OF mn Ge OP oe am ae oon on 
O05116 Oe ie eee ee | a 

ooatts . RECEIVE CRC RESIDUES IF IN CRC DIAGNOSTIC MODE 

005119 * RECV 0 GETS RES BYTE 1 
005122 * ST 

005123 il27o AOQLI 

005124 * WALT eteeset ssh 

005125 % RECV O GETS RES BYTE 2 
005126 1277 OLAO 

005129 * oT 

005130 joey % WAIT 

005131 1278 1101 i ; 

005132 | * RECV O GETS XMIT CR¢ BYTE 1 
005135 * ST 

en ee rs 

005138 * Reey 0 GETS XMIT CRC BYTE 2 
005141 127A O1AO 

005142 * ST __ 

005143 | * WALT 

005144 1278 1101 

005145 * LOC RCV} 

005146 O2FA RCV11 = EQU XO2FAS 

005147 * GNB 

005148 * 

005150 nae " | , 

QQ5L5]) * END OF FRAME PROCESSING 

Q05152¢ * 

005153 ; * LOC EOFP. 

005154 O2FB EQOFP = EQU X#O02FB8 ie 

005155 * LD X*1b68 GET FRAME COUNT 
QQO5156 Lle7C 0250 2 

QO05159 ‘ * DEC 

005160 1270 1805 

bales 127E—E «65116 . x Sead 

005165 ae * BLBF RCY92 BRANCH IF MORE DATA COMING 
005168 I27F F434 

005169 * 

Q05171 * 

0051 7¢ * LAST FRAME 

005173 * LOC LFRM 

005174 0302 LFRM EQU X#0302¢ 

OUS1T5 * ; | oe 

QQ05176 * Lb X*3F¢ GET FILL MODE 

pe ted 1280 503F 

005183 1281 9380 : ee 

005184 * B2ZF RC91 BRANCH IF FLAG JDLE 
005187 1282 F226 | 

005188 ; # BART  EOFR 

005191 1283 E502 

00519¢ % WALT 

005193 * LOC EOFR 

005194 030B EOFR EG X*030B° nts 

005195 % N 7 GET STATUS 

005196 1284 0127 

005199 * ST X*]At 

005¢0¢ 1285 511A 

005203 | * C =X*808 

005206 1286 9280 : er , 

005207 * RES 0 BUMEY REGV FUR Als 
Q005¢10 * BE RC91 DONE WITH FRAME 
005211 1287 AOE} | 

005214 * LOC RC9O 

009415 0313 RC90 EQuU X#0313° 

005216 * a) =6 

005217 1288 2090 on 

Q09220 * JUMP EREND SHOULU HAVE ILS SET 
005221 1289 Q6E6 | 3 

005224 128A 0085 bc EREND-X*03]7' 

005225 

005226 “LOC JMP2 


TITLE DCMS3- "REV At PAGE 48 
005227 0318 JMP2 EQU X#0318° 
005228 ee % JUMP STATER 
005231 1286 E600 
005232 * 
005234 ids ; ee . : 
003239 : DELAY ROUTINE USED TO JNDUCE OVERRUN 

Q ; 
005237 * RDLAY 
005238 — * LOC ROLAY 
005239 0316 7 RDLAY EQU X'031b¢ 
005240 | % ST xeice STORE COUNT 
005241 128C 4551 ; 
005244 * RCCPD1] ~ eee 
005245 ae LOC RCCPO] 
005246 031D RCCPD1 EQU X*O031D8 
005247 : ; * LO =0 
005248 1280 1C90 eee 
005251 *RCCPD2 . 
005252 i LOC RCCPD¢ 
005253 O31F RCCPD2 EQU X*O31F* 
005254 . * DEC 
005255 128E 0005 
005256 } : * AND =XtFFS 
005259 128F 93FF 
005260 j | * AND =XFFe 
005263 1290 93FF Pats, 
005264 —— * AND =XOFFE 
005267 1291 93FF ’ | 
00526% aa * BZF RCCPbL2 
005¢71 1292 F2Fs& 
VOreTe ; x Lo xeice 
005275 1293 9501C ; 
005276 * DEC 
QO5277 ; * iS X*1ce 
005278 1294 055] nee a 
005281 oa! # BZF RCCPDIL 
005282 1295 I1CF2 —_ 
005285 ee ae * JUMP RCV9 END OF DELAY ROUTINE 
005286 1296 EFE6 - 
005289 1297 FF56 DC RCV9-X#033]" 
005291 * : : 
005292 %* LAST FRAMEs FLAG IDLE 
005293 * 
005294 * LOC RC9) 
005295 0332 RCO] EQU X*0332° 
Q05¢96 * . : 
005297 ee * JUMP LAST 
005300 1298 E6FE 
005301 ee ee 8 OD oe on om ae mp ap OP om gue OP an am GP Oe an em a 
00530¢ Me Coan 
005303 * INTERFRAME STATE 
005304 * 
005305 % eae 
005306 ae LOC RC92 
005307 0335 RC92 EQU X103359 
005308 Se ke * BART RCNXT 
005309 1299 CEES 2 
005312 x WAIT 
005313 129A 0201 
005314 | * LOC RCNXT 
005315 0338 RCNXT EQU xX*0338? eae : 
005316 * IN to. GET RCV STATUS 
G88380 1298 2751 a 

296 . : 

005323 : * LD X*3Fe XMIT CONF IGe 
005324 1 129C 1A50 
005327 te, 9 * AND =X*808 
0053286 1290 3F93 a a st, - 
005331 et hatte * BZF RC89 BRANCH IF FLAG IDLE 
005332 1L29& 680F2 
005335 FE oe a oe oe om on we eo ee om 
005336 Beng toa ae thee on dpa , ch . 
005337 * ABORT IDLE STATé&e CHECK FOR ILS STATUS RECEIVEUe 
005338 * ILS STATUS RECEIVED. 
005339 % 
005340 * . 
005341 As * LD X*1AS 
005342 129F 1850 ; 
005345 | * NOP 
005346 12AU. 1AQGO 
005347 | * ¢ =X*gor 
005350 12ZAl 9280 7 ; , 
005351 * BET RC8&8 BRANCH IF ILS 
005354 12A2 E106 
005355 * : e thes 
005356 a + LD = SHOULD BE ILS STATUS, IS NOT 
005359 12A3 9007 | _— 
009360 | . * JUMP EREND 
005363 12A4 £600 | 
005364 ane x LOC RC8&S 
005365 0340 RC88 EQU X"034D8 
005366 * oem 
005367 * RECV 0 DUMMY RECV 
005370 12A5 50A0 | 
00537) * WAIT 
005373 * CRI TO GET HERE IS 151 DATA FOR NEXT FRAME 
009374 | % ; 
005375 . | * BART RC&9 
005376 12A6 OLES ; 
005379 * Lb =8 
005380 12A7T 0890 . 
005383 ° x ST X*3A8 
005384 12A8 0851 aa. a | ae . 
005387 oo ce * JUMP EREND ADAP KEADY NUT SET AFTER DATA CRI 
0053865 12A9 3AE6 ie on 
005391 I12AA 0045 DC EREND=X90357° 
00939¢ Oe ete fie ce. paren 4 
005393 * FIRST DATAs NEXT FRAME 
005394 # : ; 
005395 * LOC RC8&Y 
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TITLE DCMS35 "REV At PAGE 49 


005396 0358 RC89 EWU X*0358° 
005397 * 
005398 | x LD =0 
005401 12AB 9000 | ga , 
00540¢ | x ST X*]88 CLEAR CHAR CUUNT 
005405 12AC 5116 | | 
005406 . x JUMP XYZ 
005409 12AD EOFF 
poeoly * 
00541¢ * iy | ; | 
pee ete * COME HERE FOR STATUS OTHER THAN CLOSE 
005414 * 
005415 2», *  ——- —-LOC-— STATER 
005416 O35F STATER EQU X*Q35F¢ Ae 
005417 ; * 4) XL AS GET STATUS 
005418 I2AE 1150 est ea 
00542) * AND =X*108 STRIP TO EOF 
005422 12AF 1A93 a . 
005425 * BZT STATI 
005426 1260 10k2 
005429 : x LD =X*108 
005430 126) 0790 
005433 . * OR Xie 
005434 1262 1054 " 
005437 x ST Xe)ye 
005438 1263 1151 ; 
00544] | * LOC STATL 
005442 0366 STAT] &QU X*#0366° 
005443 . bal Lb X*lAar 
005444 1l2b4 1150 
005447 : * AND =X0g08 STRIP TO ABORT/IDLE 
005448 1265 1A93 ss ioe 
00545, * BZT STAT2 
005452 1286 80E2 
005455 ee tine x LD =Xtge 
005456 L267 0790 
005459 - | * OR x*108 
005460 1268 0254 
005463 | x ST X'1ot 
005464 1269 105] | ee 
005467 i * LOC STAT2 
005465 0377 STAT2 EQU X*O3778 
005469 ; * LD XPLAt 
005470 126A 1050 
005473 x AND =X'40t STRIP TU OVEK RUN 
005474 1lébB 1A93 . 
005477 a * BZT STAT3 . 
005478 12bC 4062 : . 
00548] ss x LD =X#208 
00548¢ l2snbd 0790 . 
005485  — x UR X*108 
005486 IléebE 2054 . 
005489 | * ST Xtjoe 
005490 12bF 1051 . 
005493 | LOC STAT 
005494 0383 STAT3 EWU X*0383° 
005495 x LD X* LAr 
005496 12C0 1050 | | | | 
005499 * AND zXt208 STRIP TO FCS ERROR 
00550G 12Cl 1A93 7 ; 
005503 ae ok x BZT STAT4 
005504 12c2 20E2 
005507 * LD =Xt4Or 
005506 12C3 0790 
005511 : * OR X#]1! 
005512 12C4 4054 : 
005515 | * ST Xe 
005516 12C5 1151 
005519 * LOC STATS 
005520 O38F STATS EQU X*O38F? | nia Sa 
005521 * RECV O DUMMY TO ADVANCE 
005524 12Co LIAO a sede «a 
005525 x BLOT STATS CHECK BUFFER NOT FULL 
005528 leC? £302 
005929 * oT ae 
005530 * LOC STATS 
00553] 0393 STAT5 EQU X#03938 
005534 . * BLOF RC93 BRANCH LF MORE COMING 
005537 12C9 F404 
OOseat 12CA EFF . epee) eee 
005342 * LOC —RC93 
005543 0399 RC93. ss EQU Xt0399" 
005544 - | * JUMP  EOFP 
005545 12CB 6AE ; ae 
005548 12CC FF6 bc EOFP=-xX'0396° 
005549 x 
Q05550 ee ee ee eee ee ee ee ee ee eee eT 
005551 ea ae | 
005552 * FATAL ERROR ROUTINE 
005553 * a 
005554 . x LOC EREND 
005555 ~ Q39C EREND EWU X*Q39C8 
005556 * ST XP3ar 
005559 12Cbd 513A 
G03563 12ZcE 9000 * oe 
, t ’ 
005564 * OUT 2 SHUT EVERYTHING OFF 
005567 ee os * NOP 
0055656 12CF 3200 
005569 * NOP 
005570 = 3 * NOP 
005571 12D0 0000 ‘ 
005572 * NOP 
005573 * LOC LUP 
005574 O3A5 LUP EQU X#Q3A5¢ 
005575 * WAIT 
005576 12b1 0001 : 
005577 Ser dee x te) L.UP 
005580 l2b2 EOFE 
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005748 LeEF 3250 | ; Bele eee : 
00575) en * AND =X*208 STRIP TU PERTINENT BIT 
005752 12FO 3F93 7 ae See 
005755 | aa * BZT XSTAR BRANCH 1F ABURT IDLE 
005756 lecFl 20E2 b cee 
005759 * LD =X*1O0¢ SET FUR FLAG IDLE 
005760 12F2 0390 Py vhs on 
005763 | x LOC XSTAR 
005764 043F XSTAR EOU X*043F¢ : 
005765 by? * OUT 6 SET FILL MODE 
G05768 1leF3 1036 - 
005769 * WAIT 
00577U Se oe ow on aw an om an ee ae OF ey EO De OF et OO > OF ge ow an an OF OF Te OH & OD a & & Op 
00577] a ete 2 sag ; 
goes : GET HERE BY CRI AFTER RCV SIDE TURNS ON XMIT 
OGS774 * LO =Xel1ce 
OOS775 l2F4 Q190 a - 
005778 | | x OUT 7 TEOFs O FILL» 
005781 12F5 1C37 : 
005782 * LD =O 
005785  \2eF6 9000 : oo 
005786 * SEND 0 DUMMY SEND 
005789 * WAIT 
005790 1zF7 6001 : 
005791 x NOP 
005792 | * NOP 
005793 il2ks 0000 | 
005794 x NOP 
005795 a NOP 
005796 1éF9 0000 
005797 * NOP 
005798 * NOP 
005799 12FA 0000 
005800 FE em ay > oe oe ee ge ow we on oe om 9m aw Om OF oe on ne om me mn = 2 =D GP ab on ow OD ee Sm em ae EP OR gm OF ap OE OD OF am © Up > OF EF EF gn on oe en HF PE FF OREO Sea we 
00560) an fad te 
005802 * START OF FRAME INITIALIZATION 
005803 * re 
009604 * Loc SFRM. 
005405 044E SFRM = EQU X*044E8 
005806 * WAIT 
005807 x | ; 
005608 7 * LD X*379 
005809 l2Fb QO150 eee + 
005812 ae * AND =X*10° STRIP TO EOF BIT 
005813 ZFC 3793 | | j tts 
005616 . * BLT SFKM3 B = NU EOF BIT SET 
005817 12FL 10E2 
005620 * ais 
005821 * INITIAL EOF BIT IS SET 
005822 * 
005823 * 
005824 . * Lb X*37t GET CONFIG WURD AGAIN 
005825 12FE 0750 | ; oo, Secs | 
’ 005828 * AND aXe? STRIP TO BYTce SIZE INFO 
005829 I2FF 3793 | | 
005632 x B SFRM2 
009633 1300 OEEO 
005836 x 
005837 * | 
005638 * INITIAL EOF BIT NOT SET 
005839 * 
005840 * 0c SFRM3 
005841 045B SFRM3 EGU X*045B 
00584¢ | : * LO xe37e 
005843 1301 OF50 
002546 * | ie as ee 
005847 * ITF TCB SPECIFIED GIVE SCREWED UP BYTE SIZE TO URTe 
BOecac * TCB SHOULD OVERIDE THIS 
‘005850 : * AND =X*'20° STRIP TO TCB BIT 
005851 1302 3793 
005654 : * BZT SFKM1 
005855 1303 20E2 | | 
005854 * LD X*37e GET VALUE FOR LRT 
003659 1304 0750 | . 
00586¢ % XOR—s_-=4 INVER! BIT 5 
009863 1305 3795 . 
005666 . bal B SFRM2 
OQ5867 1306 O4E0 
005870 * 
QO0Ss87) bad LOC SFRM] 
00587¢ 0467 SFRM] EQU X'04678 
005673 * D X37? 
005874 1307 0350 
QQ5877 % 
005478 ee ree ee 
005879 eee ; 
005680 %* SET UP XMIT CONFIGURATION 
Oozges * 
00588 * LOC SFKM2 
005683 0469 SFRM2 = EQU X*0469? : 
005884 - % OUT 7 TRANSMIT CONFIGURATION 
005887 1308 3737 
005888 ; * LD X*3Fe GET FILL MOVE AND DELAY XMIT BIT 
005891 1309 503F | 
00589¢ * AND =X'80° 
005895 130A 9380 
005896 x SR 
005897 - * 5R 
005898 130B 0707 
005899 | x OR X¢3F° 
005902 130C 543F 
005903 . % AND =X#609 
005906 1300 9360 : . 
005907 x SR 
- 005908 — * OUT 6 SET INTER@FILL MODE 
OO5911 130€ 0736 ba 
: Q0591¢ * LD X*36° 
5 005915 130F 503B ie 
005916 * DEC 
005917 | * oT x36 DEC FRAME COUNT 
005918 1310 0551 | 


TITLE DCMS3, 


005921 
005926 
005923 
005924 
005925 
005926 
009927 
005928 1311 
005931 
005932 1312 
005935 
005936 1313 
009939 
005940 
00594] 
005942 
005943 
005944 
005945 
005946 
005947 1314 
005950 
00595} 1315 
005954 
005955 1316 
0Q595% 
005959 
0U5960 1317 
005963 | 
005964 1318 
009967 
005968 1319 
00597) 
QOS9Te 
005973 
005974 
YVOS97T5 131A 
Q0597%8 ae 
005979 1316 
O0598¢ 
005983 131C 
005986 | 
005987 1310 
00599U F 
005993 131¢ 
005994 
005995 
005996 I131F 
005999 
006000 
006001 
00600¢ 
006003 1320 
006006 
006007 1321 
ON601U 
QO6O011 1322 — 
006U14 oc 
006015 1323 
006018 - 
Q06019 1324 
O060Z2 1325 
006023 
006024 
006025 
006026 
006027 1326 
006028 
006029 
006030 1327 
006031 
00603¢ 
006033 
0U6U34 
006035 
006036 
000037 - 
006040 1328 
0060041 
OR O046 a 
06043 1329 
006046 ; 
006047 132A 
006050 
Q06U51 1326 
006054 a 
006055 132C 
006056 
006059 132D 
Q06060 | 
006063 I132éé 
006064 
006065 
006066 os 
006069 132F 
00607Q 
006073 
006074 1330 
Q06U0TT 
006078 1331 
006079 ; 
O06U8¢ 1332 
006083 
006084 
006085 
006086 
006U87 
006088 
006089 
006090 
006091 1333 
006094 | 
006097 1334 


fREYV Aft 


0476 


3B50 
3E93 
83E2 


0481 


3E50 
1952 
3BF1 
2250 
3C52 
38F 1 


1C50 
3E93 
O2E2 
0790 
9037 


LOEO 
0499 
5250 
3E93 
OLE2 


0690 


14E6 
OODA 


04A4 
0000 


0000 


O4A8 
2038 


0551 
3893 
1092 
0010 
F103 
243D 
04b6 
E310 


60E5 
C701 
cOC4 


O4BE 


1OE3 
0760 
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* . 
: SHOULD WE TAKE LONG OR SHORT DATA LOOP? 


AP GR GR Gn UD aR > a oD a a a ee 


LONG DATA LOOPe IST SEE IF ANY SPECIAL ACTION TO BE TAKENe 


‘ LOC 
XYZ EQU 


LD 


TDATA 
X*O047B° 


X*3eE° 
=X*s83° 
TDOATS 


x104818 
X"19!8 
X*369 
TDAT3 
X*ace 
X*388 
TDAT3 


GET FLAG 


BR = LO MINIMUM LOOP 


ACTION FRAME 
COMPARE WITH ACTUAL 
6B = NOT THIS FRAME 


GET CHAR 


B = NOT THIS CHAR 


IT 1S THE CHAR AND FRAME TO TAKE SPECIAL ACTION. 


LD 
JUMP 


x xk *k* * * 
ive 
ne 
| 


*e KK 


LOC 
DAT3 EWU 
LD 


DEC 
S 


OC 
DAT4 EQU. 
BLCT 


LOC 

DATS EQU 
SLCT 
SEND 


ee ce ee ee ee a fb ee a a a Se ee 2 2b oe 


X*3E° 
z=X*oe 
TDAT2 
=Xt9Qe 
7 


TDAT1O 


XDLAY 
XDLAY=X"04A3? 

TDAT5 
X"04AG0 


NO SPECIAL ACTION 


TDAT3 
X#04AB8" 
X*36 


X*38!9 


EOF 
0 


STRIP TO ABORT 
B = NO ABORT 
ABORT 

OUT CONFIG 


GO TO END OF FRAME PROCESSING 


GET FLAG 
STRIP TO DELAY FLAG 
DON*T DELAY HERE 


DELAY 100 MS 


PATCH SPECIAL ACTION HERE 


DEC CHAR COUNT 


PUT IN LEADING SPACES 1/3 OF TIME 


MORE SPACE In BUFFER 
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006098 > * BART  TDATS 
"= 006101 1335 E5FB | 
rms, 006102 x WAIT | 
006103 * 6 TDAT9 
; 006104 1336 OQOl1E0 
Beau 006107 FE ce ee oe ae a ot 9m On am Om ce Om am OD 1 OF OR EE OP OY aD ED Om a OD Om OD OE ED On OD oe aD om 9D ae 8m GP Fe ae ey > OF Ge am OD cee EP OP OP OF gy, ae cae ay HP SE OH a OD TF am gp Om OF OF Up op 
Q0eL0s8 x ; : 
006109 * END OF FRAME ROVTINE 
006110 * 
006111 x | — 
O061l1e * LOC EOF - 
006113 04C7 EOF EWU X*O04CT? aS 
eon 1337. F851 * oT X*3ge TEMP STORAGE 
4 : _— . 
006118 oe oso x LO 3 GET LAS! BYTce INFo 
; 8 : 
OU6122 % AND =XeFe STRIP TO BYT& SIZE AND PARTIAL BYTE 
O00l23 1339 0393 . 
Ooels¢ 133A OFD5] eS eae 
6 
006130 ; * .0 X*1gt GET CONTROL FRAME NUMBER 
00613) 1336 2450 . ney . . 
Geet ae 1a3¢ 1952 * C X*3b8 CHECK WITH ACTUAL 
.e) < 
006134 . eee * bET EOF 1 B = [> CONTROL FRAME 
Spates 133b 6 3bEl1 Ps 
o 
006143 * JF IT JTS A CONTROL FRAME PICK UP_LAST SPNTBOL wORD 
bel ss rl FROM X#37%. OTHERWISE SEND ONLY EOF +BYIE SIZE. 
6 
006146 ee * NOP 
0Q6147 133 O86800 ~ 
006146 x NOP 
006149 ee * NOP 
006150 133F 0000 
006151 x NOP ; | 
Q00615e * LU X24 GET BYTE SIZc 
006153 1340 0050 ad ; : 
000156 * OR =x*1o" SET EUF BIT 
QQ6157 1341 2494 see 
006160 : i * B EOF2 
006161 1342 JO0E0 
006164 * eee 
006165 * LOC EOF) 
006166 O40F EOFl EGU XF04DF8 : | _ 
Q006167 or * LD Xe37e GET XMIiT CONFIG INFO 
006168 1343 0950 
G06lTL . OR =Xt108 PUT IN EOF 
006172 1344 3794 . an 
Q06175 * AND =X#308 STRIP OFF BYTE SIZE 
OU6OLT6 1345 1093 ; 
006179 I ew ee 9 ow oe ee oe a ae — = a ap 
006180 eo mated 
00618] * SEND OUT CLOSE FLAG 
00618¢ ¥ a eile ie 
006183 # OR X04! PUT IN BYTE SIZE FOR LAST 
é 000184 1346 3054 i 
i ae fore ebhS SBLED 
°o 
006189 | x QUT 7 TELL HOLC TO SEND CLOSE FLAG 
006192 1347 2437 | 
006193 * LD X1398 
006196 1348 9039 . 
006197 + LOC TDAT1LO 
006198 O4EA TDAT1O EQU”  X"O4EA? 
006199 x SEN : 
006202 | * Lo X38 
006203 1349 6050 : : 
006200 * DEC 
006207 134A 3805 i —— | 
006208 : | a ST X13 DEC CHAR COUNT 
006211 1348 5138 
006212 ee et be ie , 
Q06¢13 * TEST TO SE& IF "DELAY" XMIT BIT IS ONe 
006214 % Ag 
BBESte aac s03e '_ = = 
006219 * AND =X*4Q? GET DELAY XMIT BIT 
006222 1340 9340 . ; _ 
DORE ee aun. Gos x BZT TDATL2 ~ B = NUT SET 
0¢<6 : ; eee 
Q06<¢27 * GIVE DELAY FOR TIME FOR XMIT TO OCCUR 1B "DELAY XMIT" BROKEN 
006228 : x JUMP  XDLAYT | 
ieee 134F E600 . 
006¢33 * GHECK RCV FRAME + CHAR COUNT TO INSURE NO CHAR HAVE BEEN 
006¢34 * RECEIVED WHILE "DELAY XMI7T" WAS ONe 
006235 * | 
O0e237 04Fs TDATI3 EGU xtOarge 
.e) : — 
006¢3%8 = * LD X*ibe GET RCV FRAMc COUNT 
006234 1350 8A50 ; 
Gue263 1351 1892 : . ee | 
Ooetas 1352. FFFI * BEF TONER B = ERROR» FRAME RCVID WITH 
006250 * | XMIT_DELAY BIT ON 
Peay: 4353 3F50 : ee eae SE ee eee 
006¢55 . * BZF TONER B = EKRUR» CHAR Rcyv wITH 
Ooese6 ye ae * XMIT DELAY BIT ON 
G06260 iaieh BigEG * LO X*3F GET CONFIGURATION worRD 
006264 = ok * AND =X9B08 XMIT LRO CONFIGURATION 
006265 1356 3F93 ; a 
006268 * ST X03F9 
006269 1357 #8051 
006272 —~ * SR 
006273 1358 3F07 
O06¢74 * QR 
006275 Z * SR 
006476 1359 0707 
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006277 x OUT 6 
006280 * 
00628] FE 0 ee ee Oe ee PF SS OE OF OH OF OF Om SS A SA OOP ee SE Sa cae fa GP OO AIP HH SOP SEP SY SEP SE OO am FEF SP GF SOP AD I can eam eae FPF OF GD Om OP OD Ow OO SP aoe om 
006282 * | . | 
BOL eee - FIRST WAIT AFTEK SENDING EOFs LAST DATA CHAR 
006285 * oc TDATL2 
006286 050D TDATI12 EQU X#O50D* 
006287 * WAIT 
006288 135A 3601 
006289 * 
006290 * iN 
006293 ae x T Ki zee 
006294 1358 2551 | 
006297 a | x AND sXe] STRIP TO UNDERRUN BIT 
006298 135C 2E93 nn Re, | ae 
00630] 7 * BZF XUR BRANCH IF UNYERRUN x 
006302 1350 Ol1Fe 
006305 * LOC TDAT6 
006306 0515 TDAT6 EEUU X90515! 
006307 * G 
006308 135E 4602 | 
B0e3t 2 135F 9000 i wae “S 
006313 * ST X36 | CLEAR CHAR COUNT 
006316 1360 5138 
006318 Be ahs. eee 
006319 * TEST IF CONTRO FLAG IS SET TO TURN ON RCV AFTER 
006320 * A SPECIFIED XMIT FRAME. 
006321 * / - | 
00632¢. ees. * Lb X"3E9 GET FLAG 
0060325 136) 503E : ee ea, ea 
006326 i ; * AND =4 STRIP TO DELAY TURN ON OF RCV 
006329 1362 9304 _ | 
G06033V Ss ks * B2T TOATILI 
006333 1363 E212 
006334 * | . 
006335 * TURN ON RCV 
006336 x . eae 
006337 _- * LO X*ige ACTION FRAME 
006340 1364 5019 -_ 
006341 of. Sse * C X36 COMPARE WITH ACTUAL 
006344 1365 5236 tk | a hos 
006345 © nae * BEF | TDATLI B = NOT THIS FRAME 
006348 1366 F10C | a. 
006349 * LD =20Q DELAY TO ALLUW LAST CHARSS 
006352 1367 9014 ms _ ke | 
006353 * BS CCPOLY TO GET TO RCyR 
006356 1368 FO03b | Paes 
006357 % LO X14 LR2 CONTROL 
006360 1369 5014 
00636] x OR =2 PUT IN RCV BiT 
006364 136A 9402 : 3 
006365 —~ | x ST X01 40 
006368 1366 5114 
006369 x QUT 2 
006373 % ae ; . an 
006374 * TEST FOR LAST FRAME XMITTED. 
006375 x | | 
006376 2 * bOC TOAT LL 
006377 0531 TDOATI1 EWU X#05318 
006378 _ : * BLBF TDATT 
006379 136C 32F4 | , 
006383 ae Haat ie 
006384 * END OF TRANSMISSION = SHUT OFF XMIT 
006385 : | re 
o0e3BT 0533 TEND EGU" x10533¢ 
peace 136D 1050 * LD X9148 GET LR2 CONTROL 
O0639¢ 7 * AND =X*FES QTRIP OFF XMIT ON 
006393 136E 1493 
006396 ” x ST X* 449 
006397 136F FE51 
006400 * OUT 2 
006403 1370 1432 
006404 * JUMP LAST] 
006407 1371 E6FE 
Obea16 053D TONER EGU"  xtO>5D8 
Wi eek =, Say 

OOOO ius enue D =14 ERROR CODE 

D416 ; 
006415 2. * JUMP EREND ERRORs DELAYED XMIT DIDN®*T FUNCTION 
006416 1373 OEE6 ae 
006419 1374 FES5£ bc EREND#X#054]'" 
006420 Dee ee el ed eee ee eee 
00642) ae te ae Eo 
OU642¢ * INTERFRAME STATE 
006423 * 
006424 | x LOC TDAT? 
006425 0542 TDAT7? EGU X*05428 2 ; 
Boeeoe 1375 5036 * .D X*3E° GET FLAG 

4 ' on om . be ‘ as 
006436 a eane x AND =X*200 CHECK FUR INTERFRAME DELAY 
006434 : * BZT TDAT8 B = NO DELAY 
006437 1377 E210 Stas 2 . | = Nee | 
006436 * INTERFRAME DELAY ROUTINEe NOTE THAT *PAUSE FEATURE?® OF MLCP 
006439 * PREVENTS THIS DELAY FROM "HOGGING" OUT RCVe 
O06443 1376 90] eee 

21% 4 oe 

006444 : * BS CCPULY DELAY 100 MS 
006447 1379 FO19 
006448 * : 
006449 * ROUTINE rR TSSUE RCV RE=SYNC IF SPEGLETED™ 
poeees [ THIS OCCURS AFTER DELAY BETWEEN FRAMES 

04 
Q06452 ; * LD X36 GET FLAG 
006455 137A 503E 
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